(rmail-get-new-mail): Reset read-only after find-file.

diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index e58a2a8e5c41b329e3c63aeeba866b17abbad54d..d300398361e19c87bcec84051a0eb1203cebc4cc 100644 (file)
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -489,6 +489,7 @@ argument causes us to read a file name and use that file as the inbox."
   (or (verify-visited-file-modtime (current-buffer))
       (progn
        (find-file (buffer-file-name))
+       (setq buffer-read-only t)
        (if (verify-visited-file-modtime (current-buffer))
            (rmail-forget-messages))))
   (rmail-maybe-set-message-counters)